Option Explicit
Sub B_Sample013()
    Dim myRng As Range
    Dim myVld As Validation
    Dim myStr As String
    Set myRng = Range("A1")			'Nxs
    With myRng
        With .Validation			'JWh]w
            .Delete
            .Add Type:=xlValidateInputOnly
            .IMEMode = xlIMEModeHiragana
        End With
        'ǳƨ즹
        Set myVld = .Validation
        Select Case myVld.IMEMode
            Case xlIMEModeAlpha
                myStr = "bέ^"
            Case xlIMEModeAlphaFull
                myStr = "έ^"
            Case xlIMEModeDisable
                myStr = "L"
            Case xlIMEModeHiragana
                myStr = "W"
            Case xlIMEModeKatakana
                myStr = "W"
            Case xlIMEModeKatakanaHalf
                myStr = "W (b)"
            Case xlIMEModeNoControl
                myStr = "S"
            Case xlIMEModeOff
                myStr = "(^Ҧ)"
            Case xlIMEModeOn
                myStr = "}"
            Case Else
                myStr = ""
        End Select
        MsgBox "xs" & .Address & "" & vbCrLf & _
        "JWhIMEҦ" & myStr & "C"
    End With
    Set myVld = Nothing		'
    Set myRng = Nothing
End Sub
